/* GUI CONVERTED from rcctwbd.i (converter v1.75) Tue Apr 10 12:03:53 2001 */
/* rcctwbd.i - Shipper Workbench Include file                                 */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.3.1.6 $                                                         */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.5      LAST MODIFIED: 04/24/95           BY: GWM   *J049*      */
/* REVISION: 8.6      LAST MODIFIED: 05/20/98  BY: *K1Q4* Alfred Tan          */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00  BY: *N08T* Annasaheb Rahane    */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00  BY: *N0KP* Mark Brown          */
/* REVISION: 9.1      LAST MODIFIED: 08/28/00   BY: *N0P6* Arul Victoria      */
/* $Revision: 1.3.1.6 $    BY: Jean Miller    DATE: 03/22/01 ECO: *P008*        */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* FIND THE NEXT RECORD */
find {&direction} ship_line where
                  ship_line.abs_shipfrom = ship_from
              and ship_line.abs_shipto begins tmp_prefix
exclusive-lock no-error.

if available ship_line then do:

   {&move} 1 with frame {&frame}.

   /* DISPLAY THE FOUND RECORD */
   display
      fill(".",minimum(4,integer(ship_line.abs__qad06))) + ship_line.abs__qad06
         @ first_column
      substring(ship_line.abs_id,2)
         when (ship_line.abs_id begins "C"
               or ship_line.abs_id begins "S")
         @ cont_id
      ship_line.abs_item
      {&field1}
      {&field2}
      {&field3}
      {&field4}
   with frame {&frame}.
end.

else do:
   /* NO RECORD FOUND */
   find {&firstlast} ship_line
               where ship_line.abs_shipfrom = ship_from
                 and ship_line.abs_shipto begins tmp_prefix
   exclusive-lock no-error.
   bell.
end.
